﻿Public Class NodoDoble

    Public Direccion As Direcciones ' informacion
    Public ApuntAnt As NodoDoble ' enlace con el anterior
    Public ApuntSgte As NodoDoble ' enlace con el siguiente
    ' constructor
    Public Sub New(ByVal Direccion As Direcciones)
        Me.Direccion = Direccion

    End Sub
    ' get/set
    Public Sub setNodo(ByVal Direccion As Direcciones)
        Me.Direccion = Direccion

    End Sub

    Public Sub setApuntSgte(ByVal ApuntSgte As NodoDoble)
        Me.ApuntSgte = ApuntSgte

    End Sub

    Public Sub setApuntAnt(ByVal ApuntAnt As NodoDoble)
        Me.ApuntAnt = ApuntAnt

    End Sub

    Public Function getNodo() As Direcciones
        Return Me.Direccion
    End Function

    Public Function getApuntSgte() As NodoDoble
        Return Me.ApuntSgte

    End Function

    Public Function getApuntAnt() As NodoDoble
        Return Me.ApuntAnt

    End Function

End Class
' fin de la clase de nodo doble
